home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / olrdrs / qwkndt1a.zip / WWIVQWK.SCR < prev   
Text File  |  1992-11-06  |  2KB  |  64 lines
  1. # Sample script for logging on to a WWIV board running QWKmod.
  2. # replace YOURNAME, YOURPASS, and YOURPHONE with your name or handle,
  3. # your password, and the last four digits of your phone number.
  4. # This is only a model, and will probably need to be modified to
  5. # some degree. Assumes QWKmod can be accessed directly from the
  6. # logon screen. If not, see the sample script for WWIVMAIL for
  7. # accessing chains. Also assumes that you have a default protocol
  8. # set on the WWIV board.
  9. #
  10. TIMEOUT 10
  11. # Send space to abort logon screen.
  12. send " "
  13. # Wait for NN: prompt. If we don't get it, send <space><enter> until we do.
  14. EXPECT "NN:" " \r" 5
  15. # Send username.
  16. send "YOURNAME\r"
  17. # Wait for password prompt.
  18. expect "PW:"
  19. # Send password.
  20. send "YOURPASS\r"
  21. # Wait for phone number prompt.
  22. expect "PH:"
  23. # Send phone number.
  24. send "YOURPHONE\r"
  25. # Wait for option to run QWK reader or log on normally.
  26. expect "gon]:"
  27. # Send Y to run QWK reader.
  28. send "Y"
  29. # Optional section, only executed if a .REP packet is waiting.
  30. repbegin
  31. # Wait for QWK prompt.
  32. expect "lp]:"
  33. # Choose upload command.
  34. send "U"
  35. # Wait for upload protocol prompt.
  36. expect "em) :"
  37. # Send return (to choose default).
  38. send "\r"
  39. # Upload .REP file.
  40. upload
  41. repend
  42. # End of optional section.
  43. # Wait for .QWK prompt.
  44. expect "lp]:"
  45. # Choose download command.
  46. send "D"
  47. # Takes quite a while to pack messages, if there are a lot of them.
  48. # Bump up timeout accordingly.
  49. timeout 240
  50. # Wait for download protocol prompt.
  51. expect "em) :"
  52. # Choose default protocol.
  53. send "\r"
  54. # Download .QWK packet
  55. download
  56. # Wait for "Mark messages as read?" prompt.
  57. expect "ead?"
  58. # Yes, mark them as read.
  59. send "Y"
  60. # Wait for .QWK prompt again
  61. expect "lp]:"
  62. # Quit
  63. send "Q"
  64.